home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IOInterface / windowInternal.dcl < prev    next >
Encoding:
Modula Definition  |  1997-06-16  |  942 b   |  26 lines  |  [TEXT/3PRM]
  1. definition module windowInternal;
  2.  
  3.  
  4. //    Version 0.8 to 1.0
  5.  
  6.  
  7. import    windowInternal2;
  8. from    windowAccess        import DrawMode;
  9.  
  10.  
  11. ::    DeltaControl :== Toolbox -> Toolbox;
  12.  
  13.  
  14. Scroll_window    :: !Window !Int !Int !Int !Int !(UpdateFunction *s) !*s !Toolbox -> (!Window,!*s,!Toolbox);
  15. Draw_window        :: !Window ![Rect] !DrawMode   !(UpdateFunction *s) !*s    !Toolbox -> (!Window,!*s,!Toolbox);
  16. Draw_in_window    :: !Window !DrawMode ![DrawFunction]                    !Toolbox -> (!Window, !Toolbox);
  17. Drag_window        :: !WindowPtr !Int !Int                                    !Toolbox -> Toolbox;
  18.  
  19. DoHilitControl    :: !ControlHandle !Window !Int !DeltaControl !(UpdateFunction *s) !*s !Toolbox
  20.                 -> (!Window, !*s, !Toolbox);
  21. DoControl        :: !ControlHandle !Window !Int !DeltaControl !(UpdateFunction *s) !*s !Toolbox
  22.                 -> (!Window, !*s, !Toolbox);
  23. MoveThumb        :: !ControlHandle !Window !Int !Int             !(UpdateFunction *s) !*s !Toolbox
  24.                 -> (!Window, !*s, !Toolbox);
  25. Align_thumb        :: !Int !Int !Int !Int -> Int;
  26.